home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Utilities / TeleCommunications / HyperBBS Folder / Home / Home / card_5060.txt < prev    next >
Encoding:
Text File  |  1988-02-07  |  2.2 KB  |  113 lines
  1. -- card: 5060 from stack: in
  2. -- bmap block id: 8446
  3. -- flags: 0000
  4. -- background id: 2635
  5. -- name: idle
  6. ----- HyperTalk script -----
  7. on initCard
  8.   timeOut 7200,"hangUp"
  9.   flushInput
  10.   lookFor "noEchoLine",findRinging
  11. end initCard
  12.  
  13. on findRinging
  14.   global theInput
  15.   if "RING" is in theInput then
  16.     sendVanilla return
  17.     wait for 1 seconds
  18.     sendVanilla "ATA" & return
  19.     timeOut 10,"hangUp"
  20.     visual effect dissolve fast
  21.     go to next card
  22.   else lookFor "noEchoLine",findRinging
  23. end findRinging
  24.  
  25. on idle
  26.   global lastUserInfo, onLine, callers
  27.   if onLine then
  28.     if callers > card field "callers" then
  29.       put callers into card field "callers"
  30.     end if
  31.     if last char of the secs > 2 then put "Last: " & lastUserInfo
  32.     else put "Current time: " & the time && the date
  33.   end if
  34.   pass idle
  35. end idle
  36.  
  37.  
  38.  
  39. -- part 2 (button)
  40. -- low flags: 00
  41. -- high flags: 0000
  42. -- rect: left=472 top=306 right=334 bottom=501
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 2162 / 2162
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: 
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   visual effect iris close
  54.   go home
  55. end mouseUp
  56.  
  57.  
  58.  
  59. -- part 7 (button)
  60. -- low flags: 00
  61. -- high flags: 0000
  62. -- rect: left=256 top=298 right=321 bottom=281
  63. -- title width / last selected line: 0
  64. -- icon id / first selected line: 1013 / 1013
  65. -- text alignment: 1
  66. -- font id: 0
  67. -- text size: 12
  68. -- style flags: 0
  69. -- line height: 16
  70. -- part name: Next
  71. ----- HyperTalk script -----
  72. on mouseUp
  73.   go to next card
  74. end mouseUp
  75.  
  76.  
  77.  
  78. -- part 8 (button)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=228 top=298 right=321 bottom=254
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 1014 / 1014
  84. -- text alignment: 1
  85. -- font id: 0
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: Prev
  90. ----- HyperTalk script -----
  91. on mouseUp
  92.   go to prev card
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 9 (field)
  98. -- low flags: 00
  99. -- high flags: 0000
  100. -- rect: left=407 top=252 right=279 bottom=512
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 2
  105. -- text size: 20
  106. -- style flags: 1024
  107. -- line height: 26
  108. -- part name: callers
  109.  
  110.  
  111. -- part contents for card part 9
  112. ----- text -----
  113. 0